
var x,y : INTEGER;



CONST Z = 10;

var TESTE : STRING[10];
var A : REAL;
var variavel: array[1 .. 20] of integer;

{function assgn (T : INTEGER) : INTEGER;

Begin 

	X := 123;
		
END;}

procedure procteste;
begin
  A:= 1+2;
end;


{Bloco PRINCIPAL}
BEGIN

        x := 20;
	Case X of

	1 :  BEGIN

		x := 10;
		X :=  20 + 10 + x * 2 / 1 + 3;
	     END; 
	2 :  BEGIN
		y := 20;
	     END;
	3 :  BEGIN
		x := 30;
	     END
	ELSE
	     BEGIN
		A := 12.123;
	     END
	

	end;

	for x:= 1 to 20 do
             begin
      
               x := x+10;
      
              if x = 10 + 12 * 1 / 3  then  x := 10
              else x:= 30;
      
              end


END.
